10 REM
15 REM  CHRACTER EDITOR BOOT
20 REM
22 POKE 53280,14:POKE 53281,6
25 IF PEEK(832)<>255 THEN PRINT "[147]LOADING ...":GOSUB 100
30 IF PEEK(832)<>255 THEN LOAD " ROTATE.DATA",8,1
40 PRINT "LOAD"CHR$(34)" STANDARD.SET"CHR$(34)",8,1"
41 PRINT "NEW"
44 PRINT "LOAD"CHR$(34)" CHAR EDITOR"CHR$(34)",8"
50 POKE 198,10
55 DATA 19,13,13,13,32,32,82,85,78,13
60 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
70 POKE 44,64:POKE 16*1024,0:CLR:NEW
100 PRINT"      [146]  [146]  [146]    [146]    [146]    [146]    [146]    [146]    [146]    [146]
110 [153]"    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT     WAIT   WAIT    WAIT  WAIT
120 PRINT"    [146]    [146][183] [146]  [146][183] [146]  [146][183][181]  [146][183] [146]  [146]     [146]   [146][183]   [146][183][181]
130 [153]"   USRUSRUSR USR USR USR USR USR COS USR USR USRUSRUSR  USR  USRUSRUSR USR COS
140 PRINT"             [146]    [146]  [146]    [146]    [146]    [146]
150 [153]"           WAIT    WAIT  WAIT  WAIT   WAIT   WAIT  WAIT  WAIT  WAIT
160 PRINT"           [146][183]   [146]  [146]  [146]   [146]   [146]  [146]  [146][183][181]
170 [153]"          USRUSRUSR USRUSRUSR USR  USR  USRUSRUSR USR COS
180 RETURN